home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 June / 1987-06.d64 / ml base demo 1 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  59 lines
  1. 10 poke 53280,15:poke 53281,15
  2. 20 if x=1 then goto40:rem flag x prevents reloading in line 30
  3. 30 x=1:load "0:ml base.obj",8,1
  4. 40 input "[147]how many entries";n:n=n-1:print"[144]";
  5. 50 nd%=n:dim rp%(n+2),n$(1,n),d(n)
  6. 60 for i=0 to n:for k=0 to 1
  7. 70 if k=0 then print "name?
  8. 80 [139] k[178]1 [167] [153] "address?"
  9. 90 [133] n$(k,i)
  10. 100 [130] k
  11. 110 [133] "salary";d(i)
  12. 120 [130] i
  13. 130 rp(0)[178]0:[133]"sort or search";s$
  14. 140 [139] s$[178]"sort" [167]170
  15. 150 [139] s$[178]"search" [167]330
  16. 160 [137]130
  17. 170 [133] "sort by name, address, or salary";q$
  18. 180 [133] "a or d";ad$
  19. 190 [139] q$[179][177]"name" [167]230
  20. 200 [139] ad$[178]"a" [167] x[178]0:[141]490
  21. 210 [139] ad$[178]"d" [167] x[178]0:[141]500
  22. 220 [137]300
  23. 230 [139] q$[179][177]"address" [167]270
  24. 240 [139] ad$[178]"a" [167] x[178]1:[141]490
  25. 250 [139] ad$[178]"d" [167] x[178]1:[141]500
  26. 260 [137]300
  27. 270 [139] q$[179][177]"salary" [167]170
  28. 280 [139] ad$[178]"a" [167] [141]510
  29. 290 [139] ad$[178]"d" [167] [141]520
  30. 300 [153]"loadstop":[129]i[178]0 [164] n: [129]k[178]0 [164] 1:[153]n$(k,i),:[130] k:[153]d(i)
  31. 310 [153]:[130] i
  32. 320 [137]580
  33. 330 [133] "search name, address or salary";na$
  34. 340 [139] na$[179][177]"name" [167]370
  35. 350 [133] "what name";sr$:x[178]0:[141]540
  36. 360 [137]450
  37. 370 [139] na$[179][177]"address" [167]400
  38. 380 [133] "what address";sr$:x[178]1:[141]540
  39. 390 [137]450
  40. 400 [133] "what salary $";sr
  41. 410 [133] "h,l or e";eq$
  42. 420 [139] eq$[178]"e" [167] [141]570
  43. 430 [139] eq$[178]"h" [167] [141]550
  44. 440 [139] eq$[178]"l" [167] [141]560
  45. 450 a[178]rp%(0): [139] a[178]0 [167] [153] "not found":[137]580
  46. 460 [153]"loadstop":[129]i[178]1[164]a:b[178]rp%(i):[129] k[178]0 [164] 1:[153] n$(k,b),:[130] k:[153] d(b)
  47. 470 [153]:[130] i:[137]580
  48. 480 [143] ***sorts***
  49. 490 [151] 828,x:[158] 49152:s[176]t,a,n$(),d().:[142]
  50. 500 [151] 828,x:[158] 49152:s[176]t,d,n$(),d().:[142]
  51. 510 [151] 828,0:[158] 49152:s[176]t,a,d(),n$().:[142]
  52. 520 [151] 828,0:[158] 49152:s[176]t,d,d(),n$().:[142]
  53. 530 [143] ***searches***
  54. 540 [151] 828,x:[158] 49152:search,e,n$().:[142]
  55. 550 [151] 828,0:[158] 49152:search,h,d().:[142]
  56. 560 [151] 828,0:[158] 49152:search,l,d().:[142]
  57. 570 [151] 828,0:[158] 49152:search,e,d().:[142]
  58. 580 [133] "another operation? y/n";an$: [139] an$[178]"y" [167]130
  59.